home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 April: Mac OS SDK / Dev.CD Apr 97 SDK1.toast / Development Kits (Disc 1) / Communications Toolbox / CommToolbox 1.1 / Interfaces / AIncludes / GestaltEqu.a < prev    next >
Encoding:
Text File  |  1994-11-21  |  11.7 KB  |  274 lines  |  [TEXT/MPS ]

  1. ;
  2. ; File: ToolEqu.a
  3. ;
  4. ; Assembler Interface to the Macintosh Libraries
  5. ; Copyright Apple Computer, Inc. 1984-1991
  6. ; All Rights Reserved
  7. ;___________________________________________________________________________
  8.  
  9.     IF &TYPE('__INCLUDINGGESTALTEQU__') = 'UNDEFINED' THEN
  10. __INCLUDINGGESTALTEQU__    SET    1
  11.  
  12. **************************
  13. * Gestalt error codes
  14. **************************
  15. gestaltUnknownErr            EQU     -5550             ; gestalt doesn't know the answer
  16. gestaltUndefSelectorErr        EQU       -5551             ; undefined code was passed to Gestalt
  17. gestaltDupSelectorErr        EQU     -5552             ; tried to add an entry that already existed
  18. gestaltLocationErr            EQU        -5553             ; gestalt function ptr wasn't in sysheap
  19.  
  20. **************************
  21. * Environment Selectors
  22. **************************
  23. gestaltVersion                EQU     'vers'            ; gestalt version
  24.  
  25. gestaltAddressingModeAttr    EQU        'addr'            ; addressing mode attributes
  26. gestalt32BitAddressing        EQU        0                 ; using 32-bit addressing mode
  27. gestalt32BitSysZone            EQU       1                 ; 32-bit compatible system zone
  28. gestalt32BitCapable            EQU       2                 ; machine is 32-bit mode capable
  29.  
  30. gestaltAliasMgrAttr            EQU       'alis'            ; Alias Mgr Attributes
  31. gestaltAliasMgrPresent        EQU        0                 ; True if the Alias Mgr is present
  32. gestaltAliasMgrSupportsRemoteAppletalk    EQU    1        ; True if the Alias Mgr knows about Remote Appletalk
  33. gestaltAppleTalkVersion        EQU        'atlk'            ; AppleTalk version
  34.  
  35. gestaltAUXVersion            EQU     'a/ux'            ; a/ux version, if present
  36.  
  37. gestaltConnMgrAttr            EQU        'conn'            ; connection mgr attributes
  38. gestaltConnMgrPresent        EQU        0                
  39. gestaltConnMgrCMSearchFix    EQU        1                ; do we have fix to CMAddSearch?
  40. gestaltConnMgrErrorString    EQU        2
  41. gestaltConnMgrMultiAsyncIO    EQU        3
  42.  
  43. gestaltCRMAttr                EQU        'crm '            ; comm resource mgr attributes
  44. gestaltCRMPresent            EQU        0                
  45. gestaltCRMPersistentFix        EQU        1                ; fix for persistent connections present
  46. gestaltCRMToolRsrcCalls        EQU        2
  47.  
  48. gestaltCTBVersion            EQU        'ctbv'            ; CommToolbox version if present
  49.  
  50. gestaltDBAccessMgrAttr        EQU        'dbac'            ; Database Access Mgr attributes
  51. gestaltDBAccessMgrPresent    EQU        0                 ; True if the Database Access Mgr present
  52.  
  53. gestaltDITLExtAttr            EQU        'ditl'            ; AppenDITL, etc. calls from CTB
  54. gestaltDITLExtPresent        EQU        0                 ; True if calls are present
  55.  
  56. gestaltEasyAccessAttr        EQU     'easy'            ; Easy Access attributes
  57. gestaltEasyAccessOff        EQU        0                 ; if Easy Access present, but off (no icon)
  58. gestaltEasyAccessOn            EQU        1                 ; if Easy Access "On"
  59. gestaltEasyAccessSticky        EQU        2                 ; if Easy Access "Sticky"
  60. gestaltEasyAccessLocked        EQU        3                 ; if Easy Access "Locked"
  61.  
  62. gestaltEditionMgrAttr        EQU     'edtn'            ; Edition Mgr attributes
  63. gestaltEditionMgrPresent    EQU        0                 ; True if Edition Mgr present
  64.  
  65. gestaltAppleEventsAttr        EQU        'evnt'            ; Apple Events attributes
  66. gestaltAppleEventsPresent    EQU        0                 ; True if Apple Events present
  67.  
  68. gestaltFindFolderAttr        EQU      'fold'            ; FindFolder attributes
  69. gestaltFindFolderPresent    EQU        0                 ; True if FindFolder present
  70.  
  71. gestaltFontMgrAttr            EQU        'font'            ; Font Mgr attributes
  72. gestaltOutlineFonts            EQU       0                 ; True if OutLine Fonts are supported
  73.  
  74. gestaltStandardFileAttr        EQU        'stdf'            ; Standard File attributes
  75. gestaltStandardFile58        EQU       0                 ; True if selectors 5-8 (StandardPutFile-CustomGetFile) are supported
  76.  
  77. gestaltFPUType                EQU     'fpu '            ; FPU type
  78. gestaltNoFPU                 EQU     0                 ; no FPU
  79. gestalt68881                  EQU     1                 ; 68881 FPU
  80. gestalt68882                  EQU     2                 ; 68882 FPU
  81. gestalt68040FPU                EQU     3                 ; 68040 built-in FPU
  82.  
  83. gestaltFSAttr                EQU        'fs  '            ; file system attributes
  84. gestaltFullExtFSDispatching    EQU        0                ; has really cool new HFSDispatch dispatcher
  85. gestaltHasFSSpecCalls        EQU        1                ; has FSSpec calls
  86. gestaltHasFileSystemManager EQU        2                ; has a file system manager
  87.  
  88. gestaltFXfrMgrAttr            EQU        'fxfr'            ; file transfer manager attributes
  89. gestaltFXfrMgrPresent        EQU        0    
  90. gestaltFXfrMgrMultiFile        EQU        1                ; supports FTSend and FTReceive
  91. gestaltFXfrMgrErrorString    EQU        2
  92.  
  93. gestaltHardwareAttr            EQU       'hdwr'            ; hardware attributes
  94. gestaltHasVIA1                EQU     0                 ; VIA1 exists
  95. gestaltHasVIA2                EQU     1                 ; VIA2 exists
  96. gestaltHasASC                EQU     3                 ; Apple Sound chip exists
  97. gestaltHasSCC                EQU     4                 ; SCC exists
  98. gestaltHasSCSI                EQU     7                 ; SCSI exists
  99. gestaltHasSoftPowerOff        EQU        19                ; Capable of software power off
  100.  
  101. gestaltHelpMgrAttr            EQU        'help'            ; Help Mgr Attributes
  102. gestaltHelpMgrPresent        EQU     0                 ; true if help mgr is present
  103.  
  104. gestaltKeyboardType            EQU       'kbd '            ; keyboard type
  105. gestaltMacKbd                EQU     1
  106. gestaltMacAndPad            EQU     2
  107. gestaltMacPlusKbd            EQU     3
  108. gestaltExtADBKbd            EQU     4
  109. gestaltStdADBKbd            EQU     5
  110. gestaltPrtblADBKbd            EQU        6
  111. gestaltPrtblISOKbd            EQU        7
  112. gestaltStdISOADBKbd            EQU       8
  113. gestaltExtISOADBKbd            EQU       9
  114. gestaltADBKbdII                EQU        10
  115. gestaltADBISOKbdII            EQU        11
  116.  
  117. gestaltLowMemorySize        EQU      'lmem'            ; size of low-memory area
  118.  
  119. gestaltLogicalRAMSize        EQU     'lram'            ; logical RAM size
  120.  
  121. gestaltMiscAttr                EQU     'misc'            ; miscellaneous information
  122. gestaltScrollingThrottle    EQU        0                 ; true if scrolling throttle on
  123. gestaltSquareMenuBar        EQU        2                ; true if menu bar is square
  124.  
  125. gestaltMMUType                EQU     'mmu '            ; MMU type
  126. gestaltNoMMU                EQU     0                 ; no MMU
  127. gestaltAMU                    EQU     1                 ; address management unit
  128. gestalt68851                EQU     2                 ; 68851 PMMU
  129. gestalt68030MMU                EQU     3                 ; 68030 built-in MMU
  130. gestalt68040MMU                EQU     4                 ; 68040 built-in MMU
  131.  
  132. gestaltNotificationMgrAttr    EQU        'nmgr'           ; notification manager attributes
  133. gestaltNotificationPresent    EQU        0                ; notification manager exists
  134.  
  135. gestaltSerialAttr            EQU        'ser '            ; serial attributes                            <26>
  136. gestaltHasGPIaToDCDa        EQU        0                ; GPIa connected to DCDa                    <26>
  137. gestaltHasGPIaToRTxCa        EQU        1                ; GPIa connected to RTxCa clock input        <26>
  138. gestaltHasGPIbToDCDb        EQU        2                ; GPIb connected to DCDb                    <26>
  139.  
  140. gestaltNuBusConnectors        EQU        'sltc'            ; bitmap of slots with NuBus connectors        <26>
  141.  
  142. gestaltOSAttr                EQU     'os  '            ; O/S attributes
  143. gestaltSysZoneGrowable        EQU        0                 ; system heap is growable
  144. gestaltLaunchCanReturn        EQU        1                 ; can return from launch
  145. gestaltLaunchFullFileSpec    EQU     2                 ; can launch from full file spec
  146. gestaltLaunchControl        EQU      3                 ; launch control support available
  147. gestaltTempMemSupport        EQU     4                 ; temp memory support
  148. gestaltRealTempMemory        EQU     5                 ; temp memory handles are real
  149. gestaltTempMemTracked        EQU     6                 ; temporary memory handles are tracked
  150. gestaltIPCSupport            EQU     7                 ; IPC support is present
  151. gestaltSysDebuggerSupport    EQU     8                 ; system debugger support is present
  152.  
  153. gestaltOSTable                EQU        'ostt'            ; OS trap table base
  154. gestaltToolboxTable            EQU        'tbtt'            ; Toolbox trap table base
  155. gestaltExtToolboxTable        EQU        'xttt'            ; Extended Toolbox trap table base
  156.  
  157. gestaltLogicalPageSize        EQU        'pgsz'            ; logical page size
  158.  
  159. gestaltPowerMgrAttr            EQU       'powr'            ; power manager attributes
  160. gestaltPMgrExists            EQU     0
  161. gestaltPMgrCPUIdle            EQU        1
  162. gestaltPMgrSCC                EQU     2
  163. gestaltPMgrSound            EQU     3
  164.  
  165. gestaltPPCToolboxAttr        EQU     'ppc '            ; PPC toolbox attributes
  166. ;
  167. ; PPC will return the combination of following bit fields.
  168. ; e.g. gestaltPPCSupportsRealTime +gestaltPPCSupportsIncomming + gestaltPPCSupportsOutGoing
  169. ;indicates PPC is cuurently is only supports real time delivery
  170. ;and both icoming and outgoing network sessions are allowed.
  171. ;By default local real time delivery is supported as long as PPCInit has been called.
  172. ;
  173. gestaltPPCToolboxPresent            EQU        $0000   ; PPC Toolbox is present  Requires PPCInit to be called
  174. gestaltPPCSupportsRealTime            EQU        $1000   ; PPC Supports real-time deliveryy
  175. gestaltPPCSupportsStoreAndForward    EQU        $2000   ; PPC Store and Forward  delivery
  176. gestaltPPCSupportsDontCare            EQU        $4000   ; PPC Supports  Specification of Don't care
  177. gestaltPPCSupportsIncomming            EQU        $0001   ; PPC will deny incomming network requests
  178. gestaltPPCSupportsOutGoing            EQU        $0002   ; PPC will deny outgoing network requests
  179.  
  180. gestaltProcessorType        EQU      'proc'            ; processor type
  181. gestalt68000                EQU     1
  182. gestalt68010                EQU     2
  183. gestalt68020                EQU     3
  184. gestalt68030                EQU     4
  185. gestalt68040                EQU     5
  186.  
  187. gestaltParityAttr            EQU     'prty'            ; parity attributes
  188. gestaltHasParityCapability    EQU        0                ; has ability to check parity
  189. gestaltParityEnabled        EQU      1                 ; parity checking enabled
  190.  
  191. gestaltQuickdrawVersion        EQU        'qd  '            ; quickdraw version
  192. gestaltOriginalQD            EQU     $000              ; original 1-bit QD                 <3.2>
  193. gestalt8BitQD                EQU     $100              ; 8-bit color QD                    <3.2>
  194. gestalt32BitQD                EQU     $200              ; 32-bit color QD                    <3.2>
  195. gestalt32BitQD11            EQU     $210              ; 32-bit color QDv1.1                <31>
  196. gestalt32BitQD12            EQU     $220              ; 32-bit color QDv1.2                <31>
  197. gestalt32BitQD13            EQU     $230              ; 32-bit color QDv1.3                <31>
  198.  
  199. gestaltQuickdrawFeatures    EQU        'qdrw'            ; quickdraw features                    <37>
  200. gestaltHasColor                EQU        0                ; color quickdraw present                <37>
  201. gestaltHasDeepGWorlds        EQU        1                ; GWorlds can be deeper than 1-bit        <37>
  202. gestaltHasDirectPixMaps        EQU        2                ; PixMaps can be direct (16 or 32 bit)    <37>
  203. gestaltHasGrayishTextOr        EQU        3                ; supports text mode grayishTextOr        <37>
  204.  
  205. gestaltPhysicalRAMSize        EQU        'ram '            ; physical RAM size
  206.  
  207. gestaltPopupAttr            EQU        'pop!'            ; popup cdef attributes
  208. gestaltPopupPresent            EQU        0
  209.  
  210. gestaltResourceMgrAttr        EQU        'rsrc'            ; Resource Mgr attributes
  211. gestaltPartialRsrcs            EQU       0                 ; True if partial resources exist
  212.  
  213. gestaltScriptMgrVersion        EQU        'scri'            ; Script Manager version number     <08/05/89 pke>
  214. gestaltScriptCount            EQU        'scr#'            ; number of active script systems    <08/05/89 pke>
  215.  
  216. gestaltSoundAttr            EQU        'snd '            ; sound attributes
  217. gestaltStereoCapability        EQU        0                 ; sound hardware has stereo capability
  218. gestaltStereoMixing            EQU       1                 ; stereo mixing on external speaker
  219. gestaltSoundIOMgrPresent    EQU        3                ; The Sound I/O Manager is present
  220. gestaltBuiltInSoundInput    EQU        4                ; built-in Sound Input hardware is present
  221. gestaltHasSoundInputDevice     EQU        5                ; Sound Input device available
  222.  
  223. gestaltStdNBPAttr            EQU        'nlup'            ; standard nbp attributes
  224. gestaltStdNBPPresent        EQU        0
  225.  
  226. gestaltTextEditVersion        EQU        'te  '            ; TextEdit version number
  227. gestaltTE1                    EQU     1                 ; TextEdit in MacIIci ROM
  228. gestaltTE2                    EQU     2                 ; TextEdit with 6.0.4 Script Systems on MacIIci (Script bug fixes for MacIIci) <8Aug89smb>
  229. gestaltTE3                    EQU     3                 ; TextEdit with 6.0.4 Script Systems all but MacIIci
  230. gestaltTE4                    EQU     4                 ; TextEdit in Big Bang
  231. gestaltTE5                    EQU     5                 ; TextWidthHook available in TextEdit
  232.  
  233. gestaltTermMgrAttr            EQU        'term'            ; terminal mgr attributes
  234. gestaltTermMgrPresent        EQU        0                
  235. gestaltTermMgrErrorString    EQU        2
  236.  
  237. gestaltTimeMgrVersion        EQU     'tmgr'            ; time manager attributes
  238. gestaltStandardTimeMgr        EQU        1                 ; standard time mgr is present
  239. gestaltRevisedTimeMgr        EQU     2                 ; revised time mgr is present
  240. gestaltExtendedTimeMgr        EQU        3                 ; extended time mgr is present
  241.  
  242. gestaltVMAttr                EQU     'vm  '            ; virtual memory attributes
  243. gestaltVMPresent            EQU     0                 ; virtual memory is present
  244.  
  245. **************************
  246. * Info-only Selectors
  247. **************************
  248. gestaltMachineType            EQU        'mach'            ; machine type
  249. gestaltClassic                EQU     1
  250. gestaltMacXL                EQU     2
  251. gestaltMac512KE                EQU     3
  252. gestaltMacPlus                EQU     4
  253. gestaltMacSE                EQU     5
  254. gestaltMacII                EQU     6
  255. gestaltMacIIx                EQU     7
  256. gestaltMacIIcx                EQU     8
  257. gestaltMacSE30                EQU     9
  258. gestaltPortable                EQU     10
  259. gestaltMacIIci                EQU     11
  260. gestaltMacIIfx                EQU     13
  261. gestaltMacClassic            EQU        17                ; <29>
  262. gestaltMacIIsi                EQU        18                ; <29>
  263. gestaltMacLC                EQU        19                ; <29>
  264.  
  265.  
  266.  
  267. gestaltMachineIcon            EQU        'micn'            ; machine icon
  268.  
  269. gestaltROMSize                EQU     'rom '            ; ROM size
  270. gestaltROMVersion            EQU     'romv'            ; ROM version
  271. gestaltSystemVersion        EQU      'sysv'            ; system version
  272.  
  273.     ENDIF    ; ...already included